home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v10n07.arc
/
ECHODEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-03-27
|
488b
|
22 lines
PROGRAM EchoDemo;
USES Echo;
BEGIN
IF InputRedirected THEN WriteLn('Input is being redirected');
IF OutputNul THEN
BEGIN
WriteLn('Output is being sent to the Nul device');
EchoOff;
END;
IF OutputRedirected THEN WriteLn('Output is being redirected');
WriteLn('--------1--------');
EchoOff;
WriteLn('--------2--------');
IF NOT OutputNul THEN EchoOn;
WriteLn('--------3--------');
EchoOff;
WriteLn('--------4--------');
END.